EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/biz/dbase/tm_dbms22.lha/dbmsv2.2/arexx/DB_copyContents.rexx

OS/2 REXX Batch file | 1996-10-18 | 962b | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;lan='Sys:Prefs/DBMS_PLT.prefs';k=0;field.='';contents.='';s=OPEN('Prefs','Sys:Prefs/DBMS.prefs','r');DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;DO FOREVER;w=READLN('Prefs');IF w=''|EOF('Prefs') THEN LEAVE;IF LEFT(w,8)='ENGLI = '&RIGHT(w,1)='1' THEN lan='Sys:Prefs/DBMS_ENT.prefs';END;s=OPEN('lan',lan,'r');DO UNTIL EOF('lan');k=k+1;t.k=READLN('lan');END;s=CLOSE('lan');DO i=1 TO 5 BY 1;DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';' THEN LEAVE;END;END;CURRENTRECORD;cur=result-1;CURRENTRECORD cur;_all=READLN('Prefs');IF _all='ALL' THEN CALL All;i=0;DO FOREVER;w=READLN('Prefs');IF LEFT(w,1)=';'|EOF('Prefs') THEN LEAVE;i=i+1;field.i=w;END;DO j=1 TO i BY 1;GETFIELD field.j;contents.j=result;END;CALL Put;s=CLOSE('Prefs');EXIT;All:;i=0;DO UNTIL RC>0;i=i+1;GETFIELD field.i;contents.i=result;END;Put:;CURRENTRECORD cur+1;DO j=1 TO i;CURRENTFIELD field.j;IF RC=0 THEN PUTFIELD contents.j;END;RETURN